home *** CD-ROM | disk | FTP | other *** search
/ Atari Forever 4 / Atari Forever 4.zip / Atari Forever 4.iso / SERIE_SP / SP_015 / FACE_VAL / LISTINGS / LISTING5.TXT < prev    next >
Text File  |  1998-03-14  |  2KB  |  72 lines
  1. PROCEDURE user_rsc_var_init
  2.   '
  3.   current_menubar&=menu&      //set this to the menu bar tree index
  4.   '
  5.   LET formradi_var&=1      // Min=1/Max=3 - tree: format&
  6.   LET kursiv_var!=FALSE    // TRUE/FALSE - tree: schrift&
  7.   LET underlin_var!=FALSE  // TRUE/FALSE - tree: schrift&
  8.   LET hochgest_var!=FALSE  // TRUE/FALSE - tree: schrift&
  9.   LET tiefgest_var!=FALSE  // TRUE/FALSE - tree: schrift&
  10.   LET gesperrt_var!=FALSE  // TRUE/FALSE - tree: schrift&
  11.   LET gesptext_var$=""     // Max lenght: 2 - tree: schrift&
  12.   '
  13. RETURN
  14. PROCEDURE user_rsc_interact(index&,tree&,object&,mc&,sub_me&)
  15.   '
  16.   SELECT tree&
  17.   CASE menu&
  18.     SELECT object&
  19.     CASE menuabou&
  20.       LET prginfo_dialog&=@win_open_dialog(2,prginfo&,icfyicon&)
  21.     CASE menuform&
  22.       LET format_dialog&=@win_open_dialog(1,format&,icfyicon&)
  23.     CASE menuschr&
  24.       ' Hier den Schriftdialog aufrufen
  25.       LET schrift_dialog&=@win_open_dialog(1,schrift&,icfyicon&)
  26.     CASE menuquit&
  27.       exit_program!=TRUE
  28.     ENDSELECT
  29.   CASE prginfo&
  30.     SELECT object&
  31.     CASE infook&
  32.       @win_close(prginfo_dialog&)
  33.     ENDSELECT
  34.   CASE format&
  35.     SELECT object&
  36.     CASE formok&
  37.       SELECT formradi_var&
  38.       CASE 1    // 1. Button: linksbündig
  39.         ALERT 1,"Linksbündig wurde |ausgewählt. ",1,"  OK  ",dummy|
  40.       CASE 2    // 2. Button: zentriert
  41.         ALERT 1,"Zentriert wurde |ausgewählt. ",1,"  OK  ",dummy|
  42.       CASE 3    // 3. Button: rechtsbündig
  43.         ALERT 1,"Rechtsbündig wurde |ausgewählt. ",1,"  OK  ",dummy|
  44.       ENDSELECT
  45.       @win_close(format_dialog&)
  46.     ENDSELECT
  47.   CASE schrift&
  48.     SELECT object&
  49.     CASE hochgest&
  50.       ' Der Button "hochgestellt" wurde gedrückt
  51.       IF tiefgest_var! AND hochgest_var!
  52.         CLR tiefgest_var!
  53.         @rsc_ob_reset(schrift&,tiefgest&)
  54.       ENDIF
  55.     CASE tiefgest&
  56.       ' Der Button "tiefgestellt" wurde gedrückt
  57.       IF tiefgest_var! AND hochgest_var!
  58.         CLR hochgest_var!
  59.         @rsc_ob_reset(schrift&,hochgest&)
  60.       ENDIF
  61.     CASE schrifok&
  62.       ' Der OK-Button im Schriftdialog wurde betätigt
  63.       IF gesperrt_var!
  64.         ALERT 1,"Der Text soll um |"+gesptext_var$+" Punkte gesperrt |werden. ",1,"  OK  ",dummy|
  65.       ELSE
  66.         ALERT 1,"Der Text soll nicht |gesperrt werden. ",1,"  OK  ",dummy|
  67.       ENDIF
  68.       @win_close(schrift_dialog&)
  69.     ENDSELECT
  70.   ENDSELECT
  71. RETURN
  72.